function answer = ejer6()

	fprintf("\n______________________________________________________  \n");
	fprintf("\nMetodo de la secante para la funcion x-e^(-x) \n");
	fprintf("tolerancia de error: 0.001\n");
	fprintf("raices estimadas: -6 y 0\n");
	
	[c,y,lista_aprox] = secante(@(x) x-e^(-x),-6,6,0.001,[],100);
   	
	fprintf("\nRESULTADOS \n");

	fprintf("numero de iteraciones: ");
	length(lista_aprox)

   	fprintf("aproximaciones a la raiz: ");
	lista_aprox

	fprintf("raiz: ");
	c

	fprintf("imagen de la raiz: ");
	y

	

	fprintf("\n______________________________________________________  \n");
	fprintf("\n Metodo de la secante para la funcion x³-3x+1 \n");
	fprintf("tolerancia de error: 0.001\n");
	fprintf("raices estimadas: 0 y 1\n");

	[c2,y2,lista_aprox2] = secante(@(x) x^3 - 3*x + 1,0,1,0.001,[],100);
	
	fprintf("\nRESULTADOS\n")

	fprintf("numero de iteraciones: ");
	length(lista_aprox2)

   	fprintf("aproximaciones a la raiz: ");
	lista_aprox2

	fprintf("raiz: ");
	c2

	fprintf("imagen de la raiz: ");
	y2


	fprintf("\n______________________________________________________  \n");
	fprintf("\n Metodo de la secante para la funcion x³-sinh(x) + 4x² 6x +9 \n");
	fprintf("(ejemplo del libro (pag 77)\n");
	fprintf("tolerancia de error: 0.001\n");
	fprintf("raices estimadas: 7 y 8\n");

	[c2,y2,lista_aprox2] = secante(@(x) x^3 - sinh(x) + 4*x^2 + 6*x + 9,7,8,0.001,[],100);

	fprintf("\nRESULTADOS\n")

	fprintf("numero de iteraciones: ");
	length(lista_aprox2)

   	fprintf("aproximaciones a la raiz: ");
	lista_aprox2

	fprintf("raiz: ");
	c2

	fprintf("imagen de la raiz: ");
	y2






endfunction   
